Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Configuration.Install
Imports System.Diagnostics

<RunInstaller(True)> _
Public Class DriverInstaller
    Inherits System.Configuration.Install.Installer

    Public Sub New()
        MyBase.New()
        'Attach(the) 'Committing' event.
        AddHandler Me.AfterInstall, AddressOf MyInstaller_Committed
    End Sub 'New

    ' Event handler for 'Committed' event.
    Private Sub MyInstaller_Committed(ByVal sender As Object, _
                                      ByVal e As InstallEventArgs)
        Dim program As New Process()
        program.StartInfo.WorkingDirectory = My.Application.Info.DirectoryPath
        program.StartInfo.FileName = "DPInst.exe"
        program.StartInfo.Arguments = "/lm"
        program.Start()
        program.WaitForExit()
    End Sub 'MyInstaller_Committed

    ' Override the 'Install' method.
    Public Overrides Sub Install(ByVal savedState As IDictionary)
        MyBase.Install(savedState)


    End Sub 'Install

    ' Override the 'Commit' method.
    Public Overrides Sub Commit(ByVal savedState As IDictionary)
        MyBase.Commit(savedState)
    End Sub 'Commit

    ' Override the 'Rollback' method.
    Public Overrides Sub Rollback(ByVal savedState As IDictionary)
        MyBase.Rollback(savedState)
    End Sub 'Rollback
    Public Shared Sub Main()

    End Sub 'Main

End Class
